<p> Vector Field algo style </p>

f503cfe2-e7b9-4b96-b0d6-f018c2a2190e 8 3 5 decimal

&[DATE] &[TIME] - &[FILENAME]

∞ 1010^:

CycleColors 5 :

P V L # sf pVec t V norme eval : a 0.5 0.3 0.15 0.65 0.35 14 mat * t sf * eval : 12 mat x L 1 el a 1 el - 000 a 1 el 51 mat * eval : y L 2 el a 3 el a 4 el - a 3 el a 4 el + a 3 el a 4 el + (- a 3 el a 4 el + a 3 el a 4 el - 51 mat * eval : 12 mat θ t 0 ≡ 0 V 1 el sign V 2 el t / acos * - if eval : c θ cos : s θ sin : 13 mat k 15 range x k el y k el 21 mat P c x k el * s y k el * - s x k el * c y k el * + 21 mat + eval : for x y augment eval 51 line :

2 F B N L # sf pVField x1 x2 y1 y2 22 mat B : nx ny 21 mat N : n nx ny * : R 0 : t Clear 15 mat M 5 n * 5 + 1 matrix : V n 1 matrix : P V : 13 mat Δx x2 x1 - nx / eval : Δy y2 y1 - ny / eval : 12 mat c 0 nx 1 - (range r 0 ny 1 - (range x y 21 mat c 0.5 + (Δx * x1 + r 0.5 + (Δy * y1 + 21 mat : ν r c ny * + 1 + : P ν el x y 21 mat : V ν el x y F eval : 13 mat 21 line for for V V Δy V norme vectorize max eval / * eval : k 1 n range M R R 1 + : el P k el V k el L t sf pVec : ω 1 CycleColors range M R R 1 + : el ∞ : for 21 line for M mat2sys.1 eval 71 line :

μ 0.125 - : ε 1.01 : L 0.125 0.125 21 mat : N 202021 mat : 14 mat t x d' μ x 1 el * x 2 el - x 1 el (2^x 2 el (2^+ (x 1 el * - μ x 2 el * x 1 el + x 1 el 2^x 2 el 2^+ (x 2 el * - 21 mat : x v D 0 x v 12 mat d' : B 0.5 - 0.5 0.375 - 0.375 22 mat : t sf t ε + ln (0.4^: 12 mat Plot_0 x v D B N L t sf pVField : 51 sys

t X D μ X 1 el * X 2 el - X 1 el (2^X 2 el (2^+ (X 1 el * - μ X 2 el * X 1 el + X 1 el (2^X 2 el (2^+ (X 2 el * - 21 mat :

IC 0.375 0.125 - 21 mat :

Ω IC 0205000 var Deriv D rkfixed :

X Ω 2 col : Y Ω 3 col : Lspiral X Y augment : 13 mat

Lspiral Plot_0 IC 1 el IC 2 el . 20 black 1 5 mat 3 1 sys

algo style . . . adapted from Alvaro

for my personal classroom demo ... as is..

]]>